-- card: 3645 from stack: in
-- bmap block id: 4340
-- flags: 0000
-- background id: 2319
-- name: SortControl
----- HyperTalk script -----
on openCard
  global seeCard
  if seeCard ≠ 1 then go to first card
  pass openCard
end openCard

on setSortKey whatKey
  global sortKey
  Put whatKey into sortKey
  repeat with i = 1 to 10
    set hilite of button i to sortKey = i
  end repeat
end setSortKey


-- part 1 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=68 top=108 right=131 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Name
----- HyperTalk script -----
on mouseUp
  global sortKey
  set hilite of button sortKey to false
  setSortKey 1
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=68 top=141 right=164 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Alpha
----- HyperTalk script -----
on mouseUp
  global sortKey
  set hilite of button sortKey to false
  setSortKey 2
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=68 top=174 right=197 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Delta
----- HyperTalk script -----
on mouseUp
  global sortKey
  set hilite of button sortKey to false
  setSortKey 3
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=68 top=207 right=230 bottom=203
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Parallax
----- HyperTalk script -----
on mouseUp
  global sortKey
  set hilite of button sortKey to false
  setSortKey 4
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=244 top=108 right=131 bottom=431
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Visual Magnitude
----- HyperTalk script -----
on mouseUp
  global sortKey
  set hilite of button sortKey to false
  setSortKey 5
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=244 top=141 right=164 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Spectral Class
----- HyperTalk script -----
on mouseUp
  global sortKey
  set hilite of button sortKey to false
  setSortKey 6
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=244 top=174 right=198 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Luminosity
----- HyperTalk script -----
on mouseUp
  global sortKey
  set hilite of button sortKey to false
  setSortKey 7
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=244 top=207 right=230 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Mass
----- HyperTalk script -----
on mouseUp
  global sortKey
  set hilite of button sortKey to false
  setSortKey 8
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=244 top=242 right=265 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Radius
----- HyperTalk script -----
on mouseUp
  global sortKey
  set hilite of button sortKey to false
  setSortKey 9
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=67 top=242 right=265 bottom=203
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Distance
----- HyperTalk script -----
on mouseUp
  global sortKey
  set hilite of button sortKey to false
  setSortKey 10
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=374 top=275 right=299 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
  global seeCard
  put 0 into seeCard
  doMenu "Back"
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=84 top=276 right=299 bottom=110
-- title width / last selected line: 0
-- icon id / first selected line: 29019 / 29019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GoFirst
----- HyperTalk script -----
on mouseUp
  global seeCard
  put 0 into seeCard
  visual effect barn door close
  go card "TitleCard"
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=182 top=73 right=96 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort Cards Now!
----- HyperTalk script -----
on mouseUp
  set lockScreen to true
  global sortKey, seeCard
  if sortKey = 1 then sort by background field id 17 -- Name
  if sortKey = 2 then sort by background field id 18 -- Alpha
  if sortKey = 3 then sort by background field id 19 -- Delta
  if sortKey = 4 then sort by background field id 20 -- Parallax
  if sortKey = 5 then sort descending numeric by background field id 25 -- Visual Magnitude
  if sortKey = 6 then sort numeric by background field id 27 -- Spectral Class
  if sortKey = 7 then sort by background field id 26 -- Luminosity
  if sortKey = 8 then sort numeric by background field id 29 -- Mass
  if sortKey = 9 then sort numeric by background field id 28 -- Radius
  if sortKey = 10 then sort numeric by background field id 21 -- Distance
  go to card "SortControl" -- SortControl
  doMenu "Cut Card"
  go to last card
  doMenu "Paste Card"
  go to first card
  put 0 into seeCard
  set lockScreen to false
end mouseUp